home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 186 / 186.d81 / b.atl convoy (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  48 lines
  1. 0 rem    ***** convoy *****
  2. 2 poke788,49:tq=ti:poke53371,0
  3. 5 print"[147]":dv=peek(186):ifdv<8thendv=8
  4. 10 poke53280,0:poke53281,0:poke646,1:printchr$(14):printchr$(8)
  5. 15 gosub60000:q$=chr$(34)
  6. 20 v=10:h=10:gosub4145:print"[201]nitial [198]ile [195]heck."
  7. 25 df$="toolbox117 c000":gosub4205
  8. 30 df$="harbour":gosub4205
  9. 35 df$="bridge":gosub4205
  10. 40 df$="getword 1000":gosub4205
  11. 45 df$="f.harbour":gosub4205
  12. 50 df$="f.bridge":gosub4205
  13. 55 df$="navigation data":gosub4205
  14. 60 df$="t.convoy":gosub4205
  15. 65 forx=1to3:df$="h.convoy"+str$(x):gosub4205:next
  16. 70 ifti<tq+200then70
  17. 80 goto4405
  18. 4140 rem    ***** set cursor *****
  19. 4145 poke211,h:poke214,v:sys58732:return
  20. 4150 rem    ***** line delete *****
  21. 4155 poke781,v:gosub59903
  22. 4160 return
  23. 4200 rem    ***** file check *****
  24. 4205 open15,dv,15,"r:"+df$+"="+df$:input#15,er,a$,a,a:close15
  25. 4210 ifer=63thenreturn
  26. 4215 print"[147]":bd=0:bk=0:ch=1:gosub5205:h=12:v=12:gosub4145:print"[204][207][193][196] [197][210][210][207][210]!"
  27. 4220 h=8:v=14:gosub4145:print"[198]ile "+q$+df$+q$+" missing.":print"":end
  28. 4400 rem    ***** program file load *****
  29. 4405 df$="harbour":bd=0:bk=0:ch=0:gosub5205:print"[147]"
  30. 4410 v=23:h=8:gosub4145:print"[197][206][212][197][210][201][206][199][160][200][197][193][196][209][213][193][210][212][197][210][211].[144]"
  31. 4415 print"[144]load"q$df$q$","dv
  32. 4420 print"run":poke44,24:poke6144,0
  33. 4425 poke631,13:poke632,13:poke633,13:poke198,3:end
  34. 5160 return
  35. 5200 rem    ***** colour set *****
  36. 5205 poke53280,bd:poke53281,bk:poke646,ch:return
  37. 10000 d=peek(186):n$="0:b.atl convoy":open15,d,15,"s"+n$:close15:saven$,d:end
  38. 60000 print"[147]":z$=" [152]                                      ":poke214,10:print
  39. 60005 print" [155][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184][184]":fori=0to11:printz$:next
  40. 60010 print" [151][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][152]"
  41. 60015 z$(0)="[193][212][204][193][206][212][201][195]  [195][207][206][214][207][217] [214]ersion 2"
  42. 60020 z$(2)="by [195]harles [195]alvert
  43. 60022 z$(4)[178]"(c) 1999 by mid$ & asc (NULL)ublishing, right$nc.
  44. 60025 z$(6)="[212]his program is not shareware
  45. 60030 z$(7)[178]"or in the public domain.
  46. 60045 z$(9)="1-318-868-8727":poke214,12:print
  47. 60050 fori=0to9:printtab(20-(len(z$(i))/2))""z$(i):next:return
  48.